home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Programmer's Power Pack
/
Delphi Volume 1.iso
/
s_to_z
/
wmapdemo
/
data.z
/
VIEWER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-03-09
|
2KB
|
104 lines
unit Viewer;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
Tabs, Menus, Dialogs, ExtCtrls, Printers, Preview;
type
TBMPShow = class(TForm)
Image1: TImage;
TabSet1: TTabSet;
OpenDialog1: TOpenDialog;
MainMenu1: TMainMenu;
File1: TMenuItem;
Open1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Print1: TMenuItem;
procedure Open1Click(Sender: TObject);
procedure TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
procedure Exit1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
FFilename : string;
public
{ Public declarations }
constructor Create(AOwner:TComponent;Afile:string);
procedure ShowBMP;
end;
var
BMPShow: TBMPShow;
implementation
{$R *.DFM}
constructor TBMPShow.Create(AOwner:TComponent;Afile:string);
begin
inherited Create(AOwner);
FFilename := Afile;
end;
procedure TBMPShow.ShowBMP;
var
ndx :integer;
begin
if ffilename <> '' then begin
TabSet1.Tabs.Strings[0]:=FFilename;
Image1.Picture.LoadFromFile (TabSet1.Tabs [0]);
Print1.Enabled := True;
end else
Open1Click(Self);
end;
procedure TBMPShow.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
TabSet1.Tabs := OpenDialog1.Files;
Print1.Enabled := True;
end;
end;
procedure TBMPShow.TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
Image1.Picture.LoadFromFile (TabSet1.Tabs [NewTab]);
end;
procedure TBMPShow.Exit1Click(Sender: TObject);
begin
Close;
end;
procedure TBMPShow.Print1Click(Sender: TObject);
begin
{double checks if an image is selected}
if Image1.Picture.Graphic <> nil then
begin
Previewform := TPreviewform.Create(Application);
{set a default scale, and start the preview}
try
PreviewForm.Scale := 2;
PreviewForm.SetPage;
PreviewForm.DrawPreview;
PreviewForm.ShowModal;
finally
PreviewForm.free;
end;
end;
end;
procedure TBMPShow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
end.